home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / toadebc.zip / ASCEBC.C < prev    next >
Text File  |  1990-05-22  |  4KB  |  97 lines

  1. /* ascebc.c -  ASCii to EBCdic.
  2.  *             Written by Allan Bjorklund
  3.  *             March 21, 1990
  4.  * Extracted from the public domain Unix unzip package.
  5.  * David Kirschbaum
  6.  * Toad Hall
  7.  * kirsch@usasoc.soc.mil
  8.  *
  9.  * v3.04 No more need for ae_buf() since no longer used.
  10.  * v3.01 patched by Bo Kullmar to fix an -a switch bug.
  11.  * patch is in kullmar.pat
  12.  */
  13.  
  14. #ifdef EBCDIC                                 /* Thy may want only the <CR><NL> to <SP><NL> routine */
  15.  
  16. /*  This is the translation table MTS uses.  (7bit ascii to ebcdic) */
  17.  
  18.  
  19. static unsigned char ebcdic [] = {0x00,0x01,0x02,0x03,0x37,0x2d,0x2e,0x2f,0x16,0x05,0x25,0x0b,0x0c,0x0d,0x0e,0x0f,0x10,0x11,0x12,0x13,0x3c,0x3d,0x32,0x26,0x18,0x19,0x3f,0x27,0x1c,0x1d,0x1e,0x1f,
  20. 0x40,0x5a,0x7f,0x7b,0x5b,0x6c,0x50,0x7d,0x4d,0x5d,0x5c,0x4e,0x6b,0x60,0x4b,0x61,0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7,0xf8,0xf9,0x7a,0x5e,0x4c,0x7e,0x6e,0x6f,
  21. 0x7c,0xc1,0xc2,0xc3,0xc4,0xc5,0xc6,0xc7,0xc8,0xc9,0xd1,0xd2,0xd3,0xd4,0xd5,0xd6,0xd7,0xd8,0xd9,0xe2,0xe3,0xe4,0xe5,0xe6,0xe7,0xe8,0xe9,0xba,0xe0,0xbb,0xb0,0x6d,
  22. 0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7,0xa8,0xa9,0xc0,0x4f,0xd0,0xa1,0x07,
  23. 0x20,0x21,0x22,0x23,0x24,0x15,0x06,0x17,0x28,0x29,0x2a,0x2b,0x2c,0x09,0x0a,0x1b,0x30,0x31,0x1a,0x33,0x34,0x35,0x36,0x08,0x38,0x39,0x3a,0x3b,0x04,0x14,0x3e,0xff,
  24. 0x41,0xaa,0x4a,0xb1,0x9f,0xb2,0x6a,0xb5,0xbd,0xb4,0x9a,0x8a,0x5f,0xca,0xaf,0xbc,0x90,0x8f,0xea,0xfa,0xbe,0xa0,0xb6,0xb3,0x9d,0xda,0x9b,0x8b,0xb7,0xb8,0xb9,0xab,
  25. 0x64,0x65,0x62,0x66,0x63,0x67,0x9e,0x68,0x74,0x71,0x72,0x73,0x78,0x75,0x76,0x77,0xac,0x69,0xed,0xee,0xeb,0xef,0xec,0xbf,0x80,0xfd,0xfe,0xfb,0xfc,0xad,0xae,0x59,
  26. 0x44,0x45,0x42,0x46,0x43,0x47,0x9c,0x48,0x54,0x51,0x52,0x53,0x58,0x55,0x56,0x57,0x8c,0x49,0xcd,0xce,0xcb,0xcf,0xcc,0xe1,0x70,0xdd,0xde,0xdb,0xdc,0x8d,0x8e,0xdf}; 
  27.  
  28.   
  29. #include <string.h>
  30.  
  31.  
  32. /* a_to_e - This is the routine that does the translation.
  33.  *
  34.  * instr (in/out) - the string to be translated.
  35.  *
  36.  */
  37.  
  38. void a_to_e ( instr )
  39.      char *instr;
  40.      {
  41.       int index;      /* Just to keep track of where we are in the string */
  42.       int counter;    /* The length of the string */
  43.       
  44.       counter = strlen(instr);     /* The string must be null terminated */
  45.  
  46.       for (index = 0; index <= counter; index++)
  47.           {
  48.            instr[index] = ebcdic[instr[index]];
  49.           }
  50.  
  51.       return;
  52.      }
  53.  
  54. #endif
  55.  
  56.  
  57. #ifdef BEFORE304 
  58. /* ae_buf - This routine translates a buffer instead of a string
  59.  *          and substitues <SP><NL> for <CR><NL>.  Returns an integer
  60.  *          indicating the number of bytes after conversion.
  61.  *
  62.  *          Put in the #ifdef so that the routine could
  63.  *          be used to convert the <CR><NL> to <SP><NL>
  64.  *          on non ebcdic systems.   A.B. 03/21/90
  65.  *
  66.  * cbuff (in/out) - The buffer to be translated.
  67.  * numb  (in)     - The number of Bytes comming in.
  68.  */
  69.  
  70. #ifdef EBCDIC
  71. #define SPACE 0x40
  72. #else
  73. #define SPACE 0x20
  74. #endif
  75.    
  76. void ae_buf ( cbuff, numb )
  77.      char *cbuff;
  78.      int *numb;
  79.      {
  80.       int index;     /* Where are we in the array */
  81.       int ocount = 0;
  82.   
  83.       for (index = 0; index <= *numb; index++) 
  84.           {
  85.        if (cbuff[index] != 0x0d)
  86.           {
  87. #ifdef EBCDIC                                  /* See above */
  88.                cbuff[ocount++] = ebcdic[cbuff[index]];
  89. #else
  90.                cbuff[ocount++] = cbuff[index];
  91. #endif
  92.           }
  93.           }
  94.       *numb = ocount;
  95.      }
  96. #endif    /* BEFORE304 */
  97.